home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / modellib / dpfosc_def.c < prev    next >
Encoding:
Text File  |  1990-01-16  |  1.2 KB  |  67 lines
  1.  
  2. int dpfosc_init()
  3. {
  4.     title_label = "Diss Period. Forced Oscillator";
  5.  
  6.     mapping_on = 0;
  7.     inverse_on = 1;
  8.     fderiv_on = 0;
  9.     enable_polar = 0;
  10.     enable_period = 0;
  11.  
  12.     var_dim = 3;
  13.     param_dim = 5;
  14.     func_dim = 2;
  15.  
  16.     (void) malloc_init();
  17.  
  18.     var_label[0] = "x";
  19.     var_label[1] = "y";
  20.     var_label[2] = "t";
  21.     param_label[0] = "f-omega";
  22.     param_label[1] = "acampl";
  23.     param_label[2] = "dcampl";
  24.     param_label[3] = "damp";
  25.     param_label[4] = "n-omega";
  26.     func_label[0] = "Undefined";
  27.     func_label[1] = "Undefined";
  28.  
  29.     param[0] = 2;
  30.     param[1] = 1;
  31.     param[2] = 0;
  32.     param[3] = 0;
  33.     param[4] = 0;
  34.  
  35.     var_i[0] = 0;
  36.     var_i[1] = 0;
  37.     var_i[2] = 0;
  38.  
  39.     /* stating values of parameter window box */
  40.     param_min[0]= -5; param_max[0]= 5;
  41.     param_min[1]= -5; param_max[1]= 5;
  42.     param_min[2]= -5; param_max[2]= 5;
  43.     param_min[3]= -5; param_max[3]= 5;
  44.     param_min[4]= -5; param_max[4]= 5;
  45.  
  46.     var_min[0]= -5; var_max[0]= 5;
  47.     var_min[1]= -5; var_max[1]= 5;
  48.     var_min[2]= -5; var_max[2]= 5;
  49.  
  50.     f_p = dpfosc_f;
  51.     func_p = dpfosc_func;
  52. }
  53. /* diss. per. forced pendulum */
  54. int dpfosc_f(f,index,x,p,t,dim)
  55. int index,dim;
  56. double f[],x[],p[],t;
  57. {
  58.     f[0] = x[1];
  59.     f[1] = p[2] + p[1]*cos(p[0]*x[2]) - p[3] * x[1] - p[4] * sin(x[0]);
  60.     f[2] = 1;
  61. }
  62. int dpfosc_func(f,x,p,t,dim)
  63. double f[],x[],p[],t;
  64. int dim;
  65. {
  66. }
  67.